home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / vbx / frmchdir.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-01-26  |  2.8 KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form frmChDir 
  3.    Caption         =   "Change (*.avb) Directory"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   2385
  6.    ClientTop       =   1725
  7.    ClientWidth     =   4455
  8.    Height          =   3495
  9.    Left            =   2325
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3090
  12.    ScaleWidth      =   4455
  13.    Top             =   1380
  14.    Width           =   4575
  15.    Begin CommandButton cmdClose 
  16.       Caption         =   "&Close"
  17.       Height          =   495
  18.       Left            =   2640
  19.       TabIndex        =   8
  20.       Top             =   960
  21.       Width           =   1215
  22.    End
  23.    Begin CommandButton cmdCancel 
  24.       Caption         =   "Ca&ncel"
  25.       Height          =   495
  26.       Left            =   2640
  27.       TabIndex        =   5
  28.       Top             =   1560
  29.       Width           =   1215
  30.    End
  31.    Begin DirListBox Dir1 
  32.       Height          =   1830
  33.       Left            =   240
  34.       TabIndex        =   2
  35.       Top             =   360
  36.       Width           =   1815
  37.    End
  38.    Begin DriveListBox Drive1 
  39.       Height          =   315
  40.       Left            =   240
  41.       TabIndex        =   1
  42.       Top             =   2520
  43.       Width           =   1815
  44.    End
  45.    Begin CommandButton cmdDft 
  46.       Caption         =   "De&fault"
  47.       Height          =   495
  48.       Left            =   2640
  49.       TabIndex        =   0
  50.       Top             =   2280
  51.       Width           =   1215
  52.    End
  53.    Begin Label lblPathDisplay 
  54.       Caption         =   "Label2"
  55.       Height          =   255
  56.       Left            =   2400
  57.       TabIndex        =   7
  58.       Top             =   600
  59.       Width           =   1815
  60.    End
  61.    Begin Label Label1 
  62.       Caption         =   "Path:"
  63.       Height          =   255
  64.       Left            =   2400
  65.       TabIndex        =   6
  66.       Top             =   360
  67.       Width           =   1215
  68.    End
  69.    Begin Label lblDir 
  70.       Caption         =   "Di&rectory"
  71.       Height          =   255
  72.       Left            =   240
  73.       TabIndex        =   4
  74.       Top             =   120
  75.       Width           =   1215
  76.    End
  77.    Begin Label lblDrive 
  78.       Caption         =   "Dri&ve"
  79.       Height          =   255
  80.       Left            =   240
  81.       TabIndex        =   3
  82.       Top             =   2280
  83.       Width           =   975
  84.    End
  85. Option Explicit
  86. Sub cmdCancel_Click ()
  87. Unload Me
  88. End Sub
  89. Sub cmdClose_Click ()
  90. avbDir = Dir1.Path
  91. Unload Me
  92. End Sub
  93. Sub cmdDft_Click ()
  94. dftdir = Dir1.Path
  95. End Sub
  96. Sub Dir1_Change ()
  97.     lblPathDisplay.Caption = Dir1.Path
  98. End Sub
  99. Sub Drive1_Change ()
  100.     Dir1.Path = Drive1.Drive
  101. End Sub
  102. Sub Form_Load ()
  103. Dir1.Path = avbDir
  104. Drive1.Drive = Left$(avbDir, 2)
  105. lblPathDisplay.Caption = Dir1.Path
  106. End Sub
  107.